home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Readers / AutoWBPattern / s / AutoWBPattern.rx
Text File  |  1998-01-25  |  3KB  |  105 lines
  1. /* Change WBPattern based on any CDs present */
  2. b=addlib("rexxsupport.library",0,-30,0)
  3. call Delay(1)
  4. Address Command 'SYS:c/copy SYS:c/Info RAM:'
  5.  
  6. vol=""
  7.  
  8. do while 1
  9.  
  10. /* Get volume name. */
  11.    Address Command 'ram:Info CD0: >Ram:cd'
  12.    x=open(in,"RAM:CD",'r')
  13.    lastvol=vol
  14.    do until eof(in)
  15.       vol=readln(in)
  16.       if word(vol,1)="CD0:" then leave
  17.    end
  18.    upper vol
  19.    If pos("NO DISK PRESENT",vol) > 0 then do
  20.       vol = ""
  21.    end
  22.    else do
  23.        vol=word(vol,words(vol))
  24.    end
  25.    x=close(in)
  26.  
  27.    if vol ~= lastvol then do
  28.  
  29.       done="N"
  30.  
  31. /* If no CD found then revert to default prefs. */
  32.       If vol=""  then do
  33.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.prefs USE'
  34.          done="Y"
  35.       end 
  36.  
  37. /* This section changes pattern when an Aminet Set 1 CD is inserted. */
  38.       If substr(vol,1,4)="SET1" then do
  39.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.set1 USE'
  40.          done="Y"
  41.       end
  42.  
  43. /* This section changes pattern when an Aminet Set 2 CD is inserted. */
  44.       If substr(vol,1,4)="SET2" then do
  45.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.set2 USE' 
  46.          done="Y"
  47.       end
  48.  
  49. /* This section changes pattern when an Aminet Set 3 CD is inserted. */
  50.       If substr(vol,1,4)="SET3" then do
  51.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.set3 USE '
  52.          done="Y"
  53.       end
  54.  
  55. /* This section changes pattern when an Amiga Format CD is inserted. */
  56.       If substr(vol,1,4)="AFCD" then do
  57.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.afcd USE'
  58.          done="Y"
  59.       end
  60.  
  61. /* This section changes pattern when a CU Amiga CD is inserted. */
  62.       If substr(vol,1,4)="CUCD" then do
  63.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.cucd USE'
  64.          done="Y"
  65.       end 
  66.  
  67. /* This section changes pattern when "World of A1200" CD is inserted. */
  68.       If substr(vol,1,5)="World" then do
  69.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.alt USE'
  70.          done="Y"
  71.       end
  72.  
  73. /* This section changes pattern when EMC Phase 1 CD is inserted. */
  74.       If substr(vol,1,10)="EMC_Phase1" then do
  75.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.emc1 USE'
  76.          done="Y"
  77.       end
  78.  
  79. /* This section changes pattern when EMC Phase 2 CD is inserted. */
  80.       If substr(vol,1,10)="EMC_Phase2" then do
  81.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.emc2 USE'
  82.          done="Y"
  83.       end    
  84.  
  85. /* This section changes pattern when an Speccy CD is inserted. */
  86.       If substr(vol,1,6)="SPECCY" then do
  87.          Address Command 'SYS:Prefs/WBPattern FROM ENVARC:sys/WBPattern.spec USE'
  88.          done="Y"
  89.       end  
  90.  
  91. /* If none of above, use prefs from CD if available. */
  92.       If done="N" then do
  93.          If Exists("CD0:Prefs/env-archive/sys/WBPattern.prefs") then do
  94.             Address Command 'SYS:Prefs/WBPattern FROM CD0:Prefs/env-archive/sys/WBPattern.prefs USE'
  95.             done="Y"
  96.          end
  97.       end
  98.  
  99.    end
  100.  
  101.    call Delay(1000)
  102.  
  103. end
  104.  
  105.